#!/usr/bin/perl

require "./mailadmin-lib.pl";
&ReadParse();

&header($text{'index_title'}, "", "index", 0, 1);

print <<EOF;
<script>

function btn_adduser()
{
    document.vuform.action = "edit_vuser.cgi";
    document.vuform.clk_btn.value = "create";
}

function btn_moduser()
{
    document.vuform.action = "edit_vuser.cgi";
    document.vuform.clk_btn.value = "modify";
}



</script>
EOF


&footer("list_user.cgi?dname=$in{'dname'}", $text{"back_lsuser"});
